Imports CapaDeNegocios
Partial Public Class FrmTipoUnidadABM
    Inherits System.Web.UI.Page

    Private TblTipoUnidad As CapaDeNegocios.nTipoUnidad = New CapaDeNegocios.nTipoUnidad()
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("Login") = "Anonimo" Then
            Response.Redirect("/")
        End If

        If Not Page.IsPostBack Then
            LLenar_Grid()
        End If
    End Sub
    Sub LLenar_Grid()
        GVTipoUnidad.DataSource = TblTipoUnidad.Buscar(0, "", 1)
        GVTipoUnidad.DataBind()
        LimpiarCampos()
    End Sub
    Sub LimpiarCampos()
        TxtDescripcion.Text = ""
        HFCodigoTUnidad.Value = ""
    End Sub

    Protected Sub LnkGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkGuardar.Click
        If HFCodigoTUnidad.Value = "" Then
            TblTipoUnidad.Insertar(TxtDescripcion.Text)
        Else
            TblTipoUnidad.Modificar(Convert.ToInt32(HFCodigoTUnidad.Value), TxtDescripcion.Text)
        End If
        HFCodigoTUnidad.Value = ""
        LLenar_Grid()
    End Sub

    Protected Sub LnkEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkEliminar.Click
        If HFCodigoTUnidad.Value <> "" Then
            TblTipoUnidad.Eliminar(Convert.ToInt32(HFCodigoTUnidad.Value))
            LLenar_Grid()
        End If
    End Sub


    Protected Sub LnkBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkBuscar.Click
        Dim CodigoTUnidad As Long = 0
        If HFCodigoTUnidad.Value <> "" Then CodigoTUnidad = Convert.ToInt32(HFCodigoTUnidad.Value)
        GVTipoUnidad.DataSource = TblTipoUnidad.Buscar(CodigoTUnidad, TxtDescripcion.Text, 1)
        GVTipoUnidad.DataBind()
    End Sub

    Protected Sub GVTipoUnidad_RowCommand(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GVTipoUnidad.RowCommand
        If e.CommandName = "Select" Then
            HFCodigoTUnidad.Value = e.CommandSource.Parent.FindControl("HFcodigoTunidad").value
            TxtDescripcion.Text = e.CommandSource.Parent.Parent.FindControl("lblDescripcion").text
        End If
    End Sub

    Protected Sub LnkCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkCancelar.Click
        HFCodigoTUnidad.Value = ""
        LimpiarCampos()
        LLenar_Grid()
    End Sub
End Class